(gnus-summary-catchup): Check gnus-interactive-catchup.

(gnus-summary-catchup-and-exit): Likewise.

diff --git a/lisp/gnus.el b/lisp/gnus.el
index b7ad1d379030099a83d84903f467f56fc8847bbc..e32eb67a36ce44cbb9687f899303f5fa8f7a3e4d 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -3940,6 +3940,7 @@ Optional argument FOLDER specifies folder name."
 If prefix argument ALL is non-nil, all articles are marked as read."
   (interactive "P")
   (if (or quietly
+         (not gnus-interactive-catchup) ;Without confirmation?
          (y-or-n-p
           (if all
               "Do you really want to mark everything as read? "
@@ -3966,6 +3967,7 @@ If prefix argument ALL is non-nil, all articles are marked as read."
 If prefix argument ALL is non-nil, all articles are marked as read."
   (interactive "P")
   (if (or quietly
+         (not gnus-interactive-catchup) ;Without confirmation?
          (y-or-n-p
           (if all
               "Do you really want to mark everything as read? "